home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
graphics
/
sviewiv
/
arexx-scripts
/
exporttoimageengineer.rx
< prev
next >
Wrap
Text File
|
1999-11-30
|
1KB
|
60 lines
/*
$VER: ExportToImageFX.rx V9.00 (9.9.99)
© 1999 by Andreas R. Kleinert
This exports a graphics (that is currently loaded
in SViewIV) to ImageEngineer. ImageEngineer must be running.
USAGE: RX ExportToImageEngineer
*/
address command
OPTIONS RESULTS
SIGNAL ON ERROR
SVIIPORT = 'SViewII.rx'
SVNGPORT = 'SViewNG.rx'
SVPORT = 'SuperView.rx'
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
IF ~SHOW('P',SVPORT) THEN DO
say "Could not locate ARexx port of SViewIV !"
CALL ErrorOut 0
END
ADDRESS VALUE SVPORT
'SAVE_TYPE=ILBM CmpByteRun1'
'SAVE='||'T:IE_EXPORT'
address command wait 3
IF ~SHOW('P','IMAGEENGINEER') THEN DO
say "Could not locate ARexx port of ImageEngineer !"
CALL ErrorOut 0
END
address 'IMAGEENGINEER'
'OPEN' 'T:IE_EXPORT' 'COLOUR'
address command wait 3
address command
Delete 'T:IE_EXPORT'
Delete 'T:IE_EXPORT.info'
CALL ErrorOut 0
/* Errorout procedure ----------------------- */
ErrorOut:
PARSE ARG ExitCode
EXIT ExitCode
END